home *** CD-ROM | disk | FTP | other *** search
/ Rokenbok 2.7 / Rokenbok CD Vol-2.7z / Rokenbok CD Vol-2.iso / warranty_reply.asp < prev    next >
Text File  |  2002-01-30  |  14KB  |  314 lines
  1. <HTML>
  2. <HEAD>
  3. <TITLE>Rokenbok Toy Company | Thank you for contacting Rokenbok!</TITLE>
  4.  
  5. <!--
  6.  
  7.         Document Name: warranty_reply.asp 
  8.         Creation Date: 01.07.01
  9.         Modification History: 
  10.  
  11. -->
  12.  
  13.  
  14. </HEAD>
  15.  
  16. <BODY BGCOLOR="#FFFFFF" LEFTMARGIN="0" TOPMARGIN="0" MARGINWIDTH="0" MARGINHEIGHT="0" TEXT="#000000" LINK="0033CC" VLINK="#000066" ALINK="0033CC">
  17.  
  18. <% 
  19.  
  20.     '---------------------------------------------------
  21.     ' variables for Lyris
  22.     '---------------------------------------------------
  23.  
  24.     dim emailAddress     ' the From field
  25.     dim subscribeTo      ' the subject field for Lyris
  26.                          ' which is the mailing list subscribed to
  27.                          ' which is either text or aol
  28.   
  29.         
  30.     '---------------------------------------------------
  31.     ' variables for Warranty Registration
  32.     ' must use each name because a loop will not put them in order
  33.     '---------------------------------------------------
  34.     
  35.  
  36.     dim realname
  37.     dim Address
  38.     dim City
  39.     dim State
  40.     dim Zip
  41.     dim Country
  42.     dim Phone
  43.     dim Newsletter
  44.     dim ToyPurchased
  45.         dim ToyPurchased2
  46.     dim ToyPurchased3
  47.     dim    WhoPurchased
  48.     dim    FirstDiscover
  49.     dim    TypePurchase
  50.     dim    Features
  51.     dim    ReceiveAsGift
  52.     dim    ReasonForPurchase
  53.     dim    PricePaid
  54.     dim    StoreWherePurchased
  55.     dim    PurchaserIs
  56.     dim    PurchaserAge
  57.     dim    WhoToyIsFor
  58.     dim    NumToysOwned
  59.     dim    NumToysPurchased
  60.     dim    ChildrenUnder17InHouse
  61.     dim    AgeChildInHouse
  62.     dim    PersCompAtHome
  63.     dim    AccessToInternet
  64.     dim    SuggestionsForToys
  65.     dim    OtherProductsLikeToSee
  66.     dim    CompareToOtherToys 
  67.     dim OtherConstructionToys
  68.     dim    AnnualHouseholdIncome
  69.     dim    KeyCode
  70.     
  71.     realname = Request.Form("realname")
  72.     Address = Request.Form("Address")
  73.     City = Request.Form("City")
  74.     State = Request.Form("State")
  75.     Zip = Request.Form("Zip")
  76.     Country = Request.Form("Country")
  77.     Phone = Request.Form("Phone")
  78.     Newsletter = Request.Form("Newsletter")
  79.     ToyPurchased = Request.Form("ToyPurchased")
  80.     ToyPurchased2 = Request.Form("ToyPurchased2")
  81.     ToyPurchased3 = Request.Form("ToyPurchased3")
  82.     WhoPurchased = Request.Form("WhoPurchased")
  83.     FirstDiscover = Request.Form("FirstDiscover")
  84.     TypePurchase = Request.Form("TypePurchase")
  85.     Features = Request.Form("Features")
  86.     ReceiveAsGift = Request.Form("ReceiveAsGift")
  87.     ReasonForPurchase = Request.Form("ReasonForPurchase")
  88.     PricePaid = Request.Form("PricePaid")
  89.     StoreWherePurchased = Request.Form("StoreWherePurchased")
  90.     PurchaserIs = Request.Form("PurchaserIs")    
  91.     PurchaserAge = Request.Form("PurchaserAge")        
  92.     WhoToyIsFor = Request.Form("WhoToyIsFor")
  93.     NumToysOwned = Request.Form("NumToysOwned")    
  94.     NumToysPurchased = Request.Form("NumToysPurchased")        
  95.     ChildrenUnder17InHouse = Request.Form("ChildrenUnder17InHouse")    
  96.     AgeChildInHouse = Request.Form("AgeChildInHouse")    
  97.     PersCompAtHome = Request.Form("PersCompAtHome")        
  98.     AccessToInternet = Request.Form("AccessToInternet")        
  99.     SuggestionsForToys = Request.Form("SuggestionsForToys")        
  100.     OtherProductsLikeToSee = Request.Form("OtherProductsLikeToSee")        
  101.     CompareToOtherToys = Request.Form("CompareToOtherToys")        
  102.     OtherConstructionToys = Request.Form("OtherConstructionToys")            
  103.     AnnualHouseholdIncome = Request.Form("AnnualHouseholdIncome")        
  104.     KeyCode = Request.Form("KeyCode")    
  105.  
  106.      dim subjectWarranty  ' the subject field for the warranty
  107.  
  108.         If SuggestionsForToys = "" Then
  109.             subjectWarranty = "Warranty"
  110.         Else
  111.             subjectWarranty = "Warranty - Attention Required!"
  112.         End If    
  113.     
  114.     
  115.     
  116.     
  117.     '---------------------------------------------------
  118.     ' cstr converts to a string
  119.     '---------------------------------------------------
  120.     
  121.     emailAddress     = cstr(request.form("email"))
  122.     
  123.     '---------------------------------------------------------------------
  124.     ' test for aol email address
  125.     '---------------------------------------------------------------------
  126.     
  127.     if (instr(ucase(emailAddress),"@AOL.COM") > 0) then
  128.         subscribeTo = "subscribe rokenbok_updates_aol"
  129.         
  130.     '---------------------------------------------------------------------
  131.     ' not aol, or  plain list
  132.     '---------------------------------------------------------------------    
  133.         
  134.     else
  135.         subscribeTo = "subscribe rokenbok_updates"
  136.         
  137.     end if
  138.     
  139.         
  140.     '---------------------------------------------------------------------
  141.     ' send email to lyris
  142.     '---------------------------------------------------------------------
  143.  
  144.     If Newsletter = "subscribe"   Then
  145.     
  146.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  147.             
  148.     cdoMail.to="lyris@lyris.rokenbok.com" 
  149.     cdoMail.from=emailAddress 
  150.     cdoMail.subject=subscribeTo
  151.     cdoMail.Body=" "
  152.     
  153.     cdoMail.Send
  154.         
  155.     set cdoMail=nothing
  156.     
  157.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  158.             
  159.     cdoMail.to="listcert@rokenbok.com" 
  160.     cdoMail.from=emailAddress 
  161.     cdoMail.subject=subscribeTo
  162.     cdoMail.Body="warranty_reply "
  163.     
  164.     cdoMail.Send
  165.         
  166.     set cdoMail=nothing
  167.  
  168.     
  169.     '---------------------------------------------------------------------
  170.     ' send confirmation to rokenbok
  171.     '---------------------------------------------------------------------
  172.  
  173.     
  174.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  175.     
  176.     cdoMail.to="maillist@rokenbok.com" 
  177.     cdoMail.from="Lyris" 
  178.     cdoMail.subject="register subscribe "  + emailAddress
  179.             
  180.     cdoMail.Body = emailAddress + ", " + subscribeTo
  181.         
  182.     cdoMail.Send
  183.     
  184.     set cdoMail = nothing
  185.  
  186.   End If
  187.     
  188.     
  189.     '---------------------------------------------------------------------
  190.     ' send Warranty Information to Rokenbok - register@rokenbok.com
  191.     '---------------------------------------------------------------------
  192.     
  193.     set cdoMail = Server.CreateObject("CDONTS.NewMail")
  194.       
  195.     cdoMail.to="register@rokenbok.com" 
  196.     cdoMail.from=emailAddress 
  197.     cdoMail.subject=subjectWarranty
  198.     
  199.     dim bodyText
  200.    
  201.     bodyText = bodyText + "realname: "                + realname          + vbcrlf + vbcrlf    
  202.     bodyText = bodyText + "E-mail: "                + emailAddress + "  mailto:" + emailAddress     + vbcrlf + vbcrlf
  203.     bodyText = bodyText + "Address: "                + Address             + vbcrlf + vbcrlf
  204.     bodyText = bodyText + "City: "                    + City                 + vbcrlf + vbcrlf
  205.     bodyText = bodyText + "State: "                    + State             + vbcrlf + vbcrlf
  206.     bodyText = bodyText + "Zip: "                    + Zip               + vbcrlf + vbcrlf    
  207.     bodyText = bodyText + "Country: "                   + Country             + vbcrlf + vbcrlf    
  208.     bodyText = bodyText + "Phone: "                    + Phone             + vbcrlf + vbcrlf    
  209.     bodyText = bodyText + "SuggestionsForToys: "    + SuggestionsForToys + vbcrlf + vbcrlf        
  210.     bodyText = bodyText + "Newsletter: "               + Newsletter         + vbcrlf + vbcrlf    
  211.     bodyText = bodyText + "ToyPurchased: "               + ToyPurchased         + vbcrlf + vbcrlf        
  212.     bodyText = bodyText + "ToyPurchased2: "            + ToyPurchased2        + vbcrlf + vbcrlf    
  213.     bodyText = bodyText + "ToyPurchased3: "            + ToyPurchased3        + vbcrlf + vbcrlf        
  214.     bodyText = bodyText + "WhoPurchased: "               + WhoPurchased        + vbcrlf + vbcrlf                
  215.     bodyText = bodyText + "FirstDiscover: "               + FirstDiscover        + vbcrlf + vbcrlf    
  216.     bodyText = bodyText + "TypePurchase: "               + TypePurchase        + vbcrlf + vbcrlf        
  217.     bodyText = bodyText + "Features: "                + Features          + vbcrlf + vbcrlf        
  218.     bodyText = bodyText + "ReceiveAsGift: "               + ReceiveAsGift        + vbcrlf + vbcrlf        
  219.     bodyText = bodyText + "ReasonForPurchase: "        + ReasonForPurchase    + vbcrlf + vbcrlf    
  220.     bodyText = bodyText + "PricePaid: "                + PricePaid         + vbcrlf + vbcrlf    
  221.     bodyText = bodyText + "StoreWherePurchased: "    + StoreWherePurchased + vbcrlf + vbcrlf        
  222.     bodyText = bodyText + "PurchaserIs: "               + PurchaserIs        + vbcrlf + vbcrlf        
  223.     bodyText = bodyText + "PurchaserAge: "               + PurchaserAge        + vbcrlf + vbcrlf        
  224.     bodyText = bodyText + "WhoToyIsFor: "               + WhoToyIsFor        + vbcrlf + vbcrlf    
  225.     bodyText = bodyText + "NumToysOwned: "               + NumToysOwned       + vbcrlf + vbcrlf    
  226.     bodyText = bodyText + "NumToysPurchased: "        + NumToysPurchased     + vbcrlf + vbcrlf        
  227.     bodyText = bodyText + "ChildrenUnder17InHouse: " + ChildrenUnder17InHouse + vbcrlf + vbcrlf        
  228.     bodyText = bodyText + "AgeChildInHouse: "        + AgeChildInHouse      + vbcrlf + vbcrlf    
  229.     bodyText = bodyText + "PersCompAtHome: "        + PersCompAtHome       + vbcrlf + vbcrlf        
  230.     bodyText = bodyText + "AccessToInternet: "        + AccessToInternet     + vbcrlf + vbcrlf        
  231.     bodyText = bodyText + "OtherProductsLikeToSee: " + OtherProductsLikeToSee + vbcrlf + vbcrlf        
  232.     bodyText = bodyText + "CompareToOtherToys: "    + CompareToOtherToys + vbcrlf + vbcrlf        
  233.     bodyText = bodyText + "OtherConstructionToys: "    + OtherConstructionToys    + vbcrlf + vbcrlf    
  234.     bodyText = bodyText + "AnnualHouseholdIncome: "    + AnnualHouseholdIncome    + vbcrlf + vbcrlf    
  235.     bodyText = bodyText + "KeyCode: "                + KeyCode           + vbcrlf + vbcrlf    
  236.  
  237.                                                
  238.     
  239.     
  240.     cdoMail.Body = bodyText
  241.     
  242.     cdoMail.Send
  243.     
  244.     set cdoMail = nothing
  245.     
  246.     
  247. %>
  248.  
  249.  
  250. <CENTER>
  251.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  252.     <TR><A NAME="TOP"></A> 
  253.       <TD ROWSPAN="2" WIDTH="392" VALIGN="TOP"><A HREF="index.html""><IMG SRC="images/toplogo1.gif" WIDTH="148" HEIGHT="58" BORDER="0" ALT="Rokenbok® System"></A><IMG SRC="images/toplogo2.gif" WIDTH="244" HEIGHT="58"></TD>
  254.       <TD VALIGN="TOP"><A HREF="about.html"><IMG SRC="images/1aboutup.gif" WIDTH="58" HEIGHT="36" ALT="About Us" BORDER="0"></A><A HREF="learning.html"><IMG SRC="images/1learnup.gif" WIDTH="97" HEIGHT="36" BORDER="0" ALT="Learning Benefits"></A><A HREF="support.html"><IMG SRC="images/1suppup.gif" WIDTH="54" HEIGHT="36" ALT="Support" BORDER="0"></A><a href="redirect/contact.html"><IMG SRC="images/1contaup.gif" WIDTH="66" HEIGHT="36" ALT="Contact Us" BORDER="0"></A><a href="redirect/dealer_loc.html"><IMG SRC="images/1dealup.gif" WIDTH="93" HEIGHT="36" BORDER="0" ALT="Dealer Locator"></A></TD>
  255.   </TR>
  256.   <TR> 
  257.       <TD VALIGN="TOP"><IMG SRC="images/top_blue_stripe.gif" WIDTH="275" HEIGHT="22"><IMG SRC="images/nodeutsch.gif" WIDTH="93" HEIGHT="22" BORDER="0"></TD>
  258.   </TR>
  259.     <TR VALIGN="TOP"> 
  260.       <TD COLSPAN="2"><IMG SRC="images/top_corner.gif" WIDTH="47" HEIGHT="42"><A HREF="whatis/index.html"><IMG SRC="images/1whatup.gif" WIDTH="140" HEIGHT="42" ALT="What is Rokenbok?" BORDER="0"></A><A HREF="catalog/index.html"><IMG SRC="images/1catup.gif" WIDTH="145" HEIGHT="42" ALT="Toy Catalog" BORDER="0"></A><a href="redirect/czone.html"><IMG SRC="images/1constup.gif" WIDTH="143" HEIGHT="42" ALT="Construction Zone" BORDER="0"></A><IMG SRC="images/top_grey_mid.gif" WIDTH="134" HEIGHT="42"><IMG SRC="images/top_curve_about.gif" WIDTH="151" HEIGHT="42"></TD>
  261. </TR>
  262. </TABLE>
  263.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  264.     <TR> 
  265.       <TD WIDTH="20" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="400"></TD>
  266.       <TD WIDTH="580" VALIGN="TOP"><IMG SRC="images/ahdwarr.gif" WIDTH="580" HEIGHT="26" ALT="WARRANTY REGISTRATION"><BR>
  267.         <BR>
  268.         <table width="580" border="0" cellspacing="0" cellpadding="0">
  269.           <tr> 
  270.             <td valign="top" COLSPAN="2"><IMG SRC="images/bhdthank.gif" WIDTH="400" HEIGHT="23" ALT="Thank You" VSPACE="10"></td>
  271.           </tr>
  272.           <tr> 
  273.             <td width="11" valign="top"><img src="images/spacer.gif" width="11" height="10"></td>
  274.             <td VALIGN="TOP" WIDTH="569"><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="2">Thank You, your Warranty Information has been submitted!</FONT></td>
  275.           </tr>
  276.         </table>
  277.       </TD>
  278.       <TD WIDTH="10" VALIGN="TOP"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  279.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"><IMG SRC="images/spacer.gif" WIDTH="4" HEIGHT="10"></TD>
  280.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  281.       <TD WIDTH="126" VALIGN="TOP" BGCOLOR="#99CCFF">
  282.       <!--Insert callout text in column below--> 
  283.         <BR>
  284.       </TD>
  285.       <TD WIDTH="5" VALIGN="TOP" BGCOLOR="#99CCFF"><IMG SRC="images/spacer.gif" WIDTH="10" HEIGHT="10"></TD>
  286.     </TR>
  287.     <TR> 
  288.       <TD VALIGN="TOP" COLSPAN="2"> </TD>
  289.       <TD WIDTH="10" VALIGN="TOP"> </TD>
  290.       <TD WIDTH="4" VALIGN="TOP" BACKGROUND="images/tile_about.gif"> </TD>
  291.       <TD VALIGN="BOTTOM" BGCOLOR="#99CCFF" COLSPAN="3"><IMG SRC="images/corner_about.gif" WIDTH="146" HEIGHT="15"></TD>
  292.     </TR>
  293.   </TABLE>
  294.   <BR>
  295.   <TABLE WIDTH="760" BORDER="0" CELLSPACING="0" CELLPADDING="0">
  296.     <TR VALIGN="TOP">
  297.       <TD WIDTH="20"><IMG SRC="images/spacer.gif" WIDTH="20" HEIGHT="10"></TD>
  298.       <TD><FONT FACE="Verdana, Arial, Helvetica, sans-serif" SIZE="1" COLOR="#0033CC"><A HREF="index.html"">Home</A> 
  299.         | <A HREF="whatis/index.html">What is Rokenbok?</A> | <A HREF="catalog/index.html">Toy 
  300.         Catalog</A> | <a href="redirect/czone.html">Construction Zone</A> 
  301.         | <A HREF="about.html">About Us</A> | <A HREF="learning.html">Learning 
  302.         Benefits</A> | <A HREF="support.html">Support</A> | Contact Us<BR>
  303.         <a href="redirect/dealer_loc.html">Dealer Locator</A> | <a href="redirect/mailing_list.html">Join 
  304.         Mailing List</A> | <a href="redirect/warranty.html">Warranty Registration</A> | 
  305.         <A HREF="privacy.html">Privacy Statement</A> | <A HREF="terms.html">Terms 
  306.         of Use</A><BR>
  307.         ©2002 by Rokenbok Toy Company. All Rights Reserved.</FONT></TD>
  308.     </TR>
  309.   </TABLE>
  310. <BR>
  311. </CENTER>
  312. </BODY>
  313. </HTML>
  314.